home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b2.d64 / checkbook.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  105 lines
  1. 10 BO=53280:BA=53281:VO=54296:LF=54272:HF=54273:WV=54276:AD=54277:SR=54278
  2. 20 PRINTCHR$(14):POKEBO,12:POKEBA,12:PRINT"[147]":GOSUB650
  3. 30 PRINTTAB(14)"[158]$$$$$$$$$$$$$":PRINT:PRINTTAB(14)"$":PRINTTAB(26)"[145]$"
  4. 40 PRINTTAB(16)"[195][200][197][195][203][194][207][207][203]"
  5. 50 PRINTTAB(14)"$":PRINTTAB(26)"[145]$":PRINT
  6. 60 PRINTTAB(14)"$$$$$$$$$$$$$"
  7. 70 FORX=1TO3600:NEXTX
  8. 75 GOSUB690
  9. 76 POKEBO,6:POKEBA,6
  10. 80 PRINT"[147][201]F THERE ARE INTEREST OR SERVICE":PRINT
  11. 90 PRINT"CHARGES ON THE [194]ANK [211]TATEMENT, WRITE":PRINT
  12. 100 PRINT"THEM INTO THE [195]HEQUE [194]OOK [210]ECORD."
  13. 110 PRINT"[208]RESS "CHR$(34)"[208]"CHR$(34)" TO PROCEED[146]";
  14. 120 GETK$:IFK$<>"P"ANDK$<>"[208]"THEN120
  15. 125 GOSUB690
  16. 126 POKEBO,12:POKEBA,12
  17. 130 PRINT"[147][155][208]UT A RED "CHR$(34)CHR$(186)CHR$(34)" AGAINST EVERY CHEQUE";
  18. 140 PRINT" AND":PRINT:PRINT" DEPOSIT IN THE [195]HEQUE [194]OOK [210]ECORD THAT":PRINT
  19. 150 PRINT"IS LISTED ON THE [194]ANK [211]TATEMENT.":POKE55548,2
  20. 170 PRINT"[208]RESS "CHR$(34)"[196]"CHR$(34)" WHEN DONE";
  21. 180 GETK$:IFK$<>"D"ANDK$<>"[196]"THEN180
  22. 185 GOSUB690
  23. 186 POKEBO,9:POKEBA,9
  24. 190 PRINT"[147][158][146][212]YPE THE CLOSING BALANCE SHOWN ON THE"
  25. 200 PRINT:PRINT"[194]ANK [211]TATEMENT, AND PRESS [210][197][212][213][210][206][146]."
  26. 210 INPUT"[193]MOUNT";S
  27. 215 GOSUB690
  28. 218 POKEBO,6:POKEBA,6
  29. 220 PRINT"[147][212]YPE THE CURRENT BALANCE SHOWN ON YOUR":PRINT
  30. 230 PRINT"[195]HEQUE [194]OOK [210]ECORD, AND PRESS [210][197][212][213][210][206][146]."
  31. 240 INPUT"[193]MOUNT";R
  32. 245 GOSUB690
  33. 246 POKEBO,9:POKEBA,9
  34. 250 PRINT"[147][193]FTER THE PROMPT, "CHR$(34);
  35. 260 PRINT"[196]EPOSIT?"CHR$(34)", TYPE THE":PRINT
  36. 270 PRINT"AMOUNT OF ANY CREDITS OR DEPOSITS THAT":PRINT
  37. 280 PRINT"ARE NOT ON THE [194]ANK [211]TATEMENT."
  38. 290 PRINT"[208]RESS ANY KEY[146]";
  39. 300 GETK$:IFK$=""THEN300
  40. 310 PRINT"[147]"
  41. 312 POKEBO,12:POKEBA,15
  42. 320 GOSUB690:INPUT"[144][196]EPOSIT";D
  43. 330 S=S+D
  44. 340 GOSUB690:PRINT"[154][193]NY MORE DEPOSITS?":PRINT
  45. 350 PRINT"[208]LEASE TYPE [217][146] OR [206][146]."
  46. 360 GETK$:IFK$=""THEN360
  47. 370 IFK$="Y"ORK$="[217]"THEN320
  48. 375 GOSUB690
  49. 376 POKEBO,9:POKEBA,15
  50. 380 PRINT"[147][193]FTER THE PROMPT, "CHR$(34);
  51. 390 PRINT"[195][200][197][209][213][197]?"CHR$(34)", TYPE THE":PRINT
  52. 400 PRINT"AMOUNT OF ANY CHEQUES THAT ARE NOT ON":PRINT
  53. 410 PRINT"THE [194]ANK [211]TATEMENT."
  54. 420 PRINT"[208]RESS ANY KEY[146]";
  55. 430 GETK$:IFK$=""THEN430
  56. 440 PRINT"[147]"
  57. 450 GOSUB690:INPUT"[195]HEQUE";C
  58. 460 S=S-C
  59. 462 GOSUB690
  60. 470 PRINT"[154][193]NY MORE CHEQUES?":PRINT
  61. 480 PRINT"[152][208]LEASE TYPE [217][146] OR [206][146]."
  62. 490 GETK$:IFK$=""THEN490
  63. 500 IFK$="Y"ORK$="[217]"THEN450
  64. 505 GOSUB690
  65. 506 POKEBO,9:POKEBA,9:PRINT"[147]"
  66. 510 PRINT"[158][212]HE CLOSING BALANCE IN YOUR [195]HEQUE":PRINT" [194]OOK [210]ECORD SHOULD BE:"
  67. 511 S$=STR$(S)
  68. 512 IFS=INT(S)THENS$=STR$(S)+".00"
  69. 513 IFLEN(STR$(S))=LEN(STR$(INT(S)))+2THENS$=STR$(S)+"0"
  70. 514 IFLEN(STR$(S))>LEN(STR$(INT(S)))+3THENS$=LEFT$((STR$(S)),(LEN(STR$(INT(S))))+3)
  71. 521 PRINT"$";RIGHT$(S$,(LEN(S$)-1))
  72. 530 PRINT"[201]T ACTUALLY IS:":R$=STR$(R)
  73. 531 IFR=INT(R)THENR$=STR$(R)+".00":GOTO541
  74. 532 IFLEN(STR$(R))=LEN(STR$(INT(R)))+2THENR$=STR$(R)+"0"
  75. 533 IFLEN(STR$(R))>LEN(STR$(INT(R)))+3THENR$=LEFT$((STR$(R)),(LEN(STR$(INT(R))))+3)
  76. 541 PRINT"$";RIGHT$(R$,(LEN(R$)-1))
  77. 550 B=S-R
  78. 560 IFB=0THENGOTO630
  79. 570 IFB<0THENGOTO610
  80. 580 PRINT"[212]O CORRECT THE [195]HEQUE [194]OOK [210]ECORD,      WRITE A ";
  81. 590 PRINTCHR$(34)"DEPOSIT"CHR$(34)" ENTRY OF:"
  82. 591 B$=STR$(B)
  83. 592 IFB=INT(B)THENB$=STR$(B)+".00":GOTO601
  84. 593 IFLEN(STR$(B))=LEN(STR$(INT(B)))+2THENB$=STR$(B)+"0"
  85. 594 IFLEN(STR$(B))>LEN(STR$(INT(B)))+3THENB$=LEFT$((STR$(B)),(LEN(STR$(INT(B))))+3)
  86. 601 PRINT"$";RIGHT$(B$,(LEN(B$)-1)):GOTO800
  87. 610 PRINT"[212]O CORRECT THE [195]HEQUE [194]OOK [210]ECORD,      WRITE A  ";
  88. 620 PRINTCHR$(34)"CHEQUE"CHR$(34)" ENTRY OF:"
  89. 621 RS=R-S:IFRS<.01THENRS=0:RS$=STR$(RS)
  90. 622 IFRS=INT(RS)THENRS$=STR$(RS)+".00":GOTO626
  91. 623 IFLEN(STR$(RS))=LEN(STR$(INT(RS)))+2THENRS$=STR$(RS)+"0"
  92. 624 IFLEN(STR$(RS))>LEN(STR$(INT(RS)))+3THENRS$=LEFT$((STR$(RS)),(LEN(STR$(INT(RS))))+3)
  93. 626 PRINT"$";RIGHT$(RS$,(LEN(RS$)-1)):GOTO800
  94. 630 PRINT"[212]HE CLOSING BALANCE WRITTEN IN YOUR"
  95. 640 PRINT"[195]HEQUE [194]OOK [210]ECORD IS THEREFORE":PRINT" CORRECT.[146]":GOTO800
  96. 650 FORSI=LFTOVO:POKESI,0:NEXTSI:RETURN
  97. 690 POKEVO,15:POKEAD,9:POKESR,0:POKEHF,64:POKELF,188:POKEWV,17
  98. 700 FORTM=1TO200:NEXT:POKEWV,16:FORTM=1TO100:NEXT:GOTO650
  99. 800 PRINTTAB(6)"[208][210][197][211][211] [193][206][217][160][203][197][217][160][212][207][160][197][206][196] [208][210][207][199][210][193][205]"
  100. 810 GETK$:IFK$=""THEN810
  101. 820 PRINT"[147]"
  102. 830 PRINT"LOAD"CHR$(34)"MENU"CHR$(34)",8"
  103. 840 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
  104. 850 POKE631,13:POKE632,13:POKE198,2:END
  105.